var A,B,C: TMtx; begin CreateIt(A,B,C); try A.SetIt(2,2,False,[1,2, 2,4]); B.SetIt(2,2,False,[1,2, 2,4]); C.MulElem(A,B); // C becomes: // [1, 4, // 4,16] finally FreeIt(A,B,C); end; end;